Shareware Overload Trio 2

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir37 / shl.zip / FOXPRO.ZIP / SCR.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1994-05-25 | 57KB | 1,070 lines

Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP1 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->DESC)f Enter Description: M->DESCf mDUMMYf .AND.8 LOC_1$UPPER(DESC) .AND.8 LOC_1=RIGHT(RTRIM(UPPER(DESC)),LEN(LOC_1)) .AND.8 LOC_1=LEFT(LTRIM(UPPER(DESC)),LEN(LOC_1)) .AND.8 LOC_1=UPPER(DESC) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR mVBDISPLAY ABERR FILE_BLEFT >FILBRIGHT CDEF E("mVCDISPLAY NCMSG mVALCSEARCH mVMDUMMY ,.FMVALID ENCOL IF NDBF mVALINFLD . .NONREC_PTR NROW NDIALOG F mF1 REF2 E _CHANF10 PUBLICLOCATE BLOCATE TBLOCATE2 GDESC ATHERLOC_1 BEXACT IPLSWAIT LTNORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->DESC)f CSEARCH VDESC V_CHANGE A_DELETE E_BSAVED FILBADD FLD E("mVMALTER NFNALTER ALBEXTRA mVWHEN ,.FCPROGRAM ENDBF IF FNRLOCK LIMVALID mVALIDf mVALIDf VBERR ACFLD_DESC MDESC FILMALTER FNALTER mVFLD NMVALID ALFNPATH mVFILE_PATH EFNNAME IF FILE_NAME _CHANGE NOALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS DESC:V=BRV(2) ,FILE_PATH:V=BRV(3):P="!"+cDRIV_SEP+REPLICATE("!",36):W=BRW(3) ,FILE_NAME:V=BRV(4):P="@"+"!":W=BRW(4) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW V_JDBLCLICKFLD _DESC FILBDISPLAY BSAVED mVCNAME NCREAD ALCREAD_ERR CTITLE ENDBF IF NFLD NFLD_BEG ONFLD_END NROW MALTER NMDUMMY F mNLEVEL KCBROWSE ANBMULT UBLIFNGETENV NSCHEME TWINDOW GDIALOG HERF1 LTCTRL ILTER HOME ERNAL JKEY Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP5 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Enter Application Description Enter Application File Path mVALIDf Enter starting procedure name (no extension) mVALIDf CWINDOW VBERR CLICKBMEMO FILCFLD_DESC MDESC mVMVALID NNCOL ALNFLD NFLD_KEY ENSAY_COL NSAY_ROW DIALOG NMOUSE F mRIGHTMOUSEBSAVED ANNFLD_BEG FLD_SAY5 GNFLD_END RFLD_UQS IBMULT LTDESC NTO_READ FNALTERR FLD_SET *FILE_PATH CDRIV_SEP FNPATH FILE_NAME FNNAME PLSWAIT APPEND VATFNRLOCK cRALTER TMALTER CVARREAD CVARREAD CWINDOW VNWINDOW CKBMEMO CFONTS FILCFLD_DESC MDESC mVMVALID NNCOL ALNROW NSAY_COL NSAY_ROW EBDISPLAY SBLANK OFNFOUND MALTER FNALTER NBADD F mDESC MOUSEFNPATH ANFILE_PATH CDRIV_SEP FNNAME TFILE_NAME CFLD_DESC FILE_PATH CDRIV_SEP FILE_NAME Description: File Path : File Name : NMOUSE NFLD_BEG NFLD_END Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP6 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->USER_ID)f Enter User ID: M->USER_IDf mDUMMYf .AND.8 LOC_5$UPPER(USER_ID) .AND.8 LOC_5=RIGHT(RTRIM(UPPER(USER_ID)),LEN(LOC_5)) .AND.8 LOC_5=LEFT(LTRIM(UPPER(USER_ID)),LEN(LOC_5)) .AND.8 LOC_5=UPPER(USER_ID) M->DESCf mDUMMYf .AND.8 LOC_6$UPPER(DESC) .AND.8 LOC_6=RIGHT(RTRIM(UPPER(DESC)),LEN(LOC_6)) .AND.8 LOC_6=LEFT(LTRIM(UPPER(DESC)),LEN(LOC_6)) .AND.8 LOC_6=UPPER(DESC) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY NCMSG ALCSEARCH MDUMMY MVALID ENCOL NDBF ONREC_PTR NROW NDIALOG F mF1 USEF2 ANF10 _PATH CLOCATE BLOCATE TBLOCATE2 USER_ID LOC_5 DESC IFLD_POP6 LOC_6 BEXACT PLSWAIT *NORDER CFILTER FNFOUND CVARREAD KEYBOARD CHR(23) PLAIN cVARREADf nFLDf DO FLD_HELP WITH nFLD No records on file Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY NNDBF ALNFLD RREAD DESC SHELL POP_UP DIALOG NNEXTKEY UPPER(M->USER_ID)f CSEARCH USER_ID Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP7 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->DESC)f M->DESCf mDUMMYf .AND.8 LOC_7$UPPER(DESC) .AND.8 LOC_7=RIGHT(RTRIM(UPPER(DESC)),LEN(LOC_7)) .AND.8 LOC_7=LEFT(LTRIM(UPPER(DESC)),LEN(LOC_7)) .AND.8 LOC_7=UPPER(DESC) Enter User ID: M->USER_IDf mDUMMYf .AND.8 LOC_8$UPPER(USER_ID) .AND.8 LOC_8=RIGHT(RTRIM(UPPER(USER_ID)),LEN(LOC_8)) .AND.8 LOC_8=LEFT(LTRIM(UPPER(USER_ID)),LEN(LOC_8)) .AND.8 LOC_8=UPPER(USER_ID) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY NCMSG ALCSEARCH MDUMMY MVALID ENCOL NDBF ONREC_PTR NROW NDIALOG USEF2 ANF10 _PATH CLOCATE BLOCATE TBLOCATE2 FLD_POP7 ILOC_7 TUSER_ID LOC_8 BEXACT PLSWAIT *NORDER CFILTER FNFOUND CVARREAD KEYBOARD CHR(23) PLAIN cVARREADf nFLDf DO FLD_HELP WITH nFLD No records on file Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY NNDBF ALNFLD RREAD DESC SHELL POP_UP DIALOG NNEXTKEY UPPER(M->DESC)f CSEARCH USER_ID M->DESCf _CHANGE _DELETE BSAVED MALTER NFNALTER ALBEXTRA CPROGRAM ENDBF FNRLOCK MVALID O_FLD DESC NEXTKEY _FLDfF M->DESCf mVALIDf CFLD_DESC MDESC MALTER FNALTER NFLD_POP9 MVALID EDESC FNRLOCK FLD_DES9 _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS DESC:V=BRV(9):F:W=BRW(9) ,USER_ID:V=BRV(10) ,PASSWORD:V=BRV(11) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME NCREAD LCREAD_ERR CTITLE ENDBF NFLD NFLD_BEG ONFLD_END MALTER NMDUMMY mNLEVEL KCBROWSE ANBMULT FNGETENV NSCHEME TWINDOW DIALOG TCTRL HOME Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP9 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Enter Application Description mVALIDf Enter User ID (leave blank for application-wide password Enter Application/User Password CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NNCOL LNFLD NFLD_KEY ENSAY_COL NSAY_ROW DIALOG NMOUSE mRIGHTMOUSEBSAVED ANNFLD_BEG FLD_SAY9 NFLD_END FLD_UQS IFLD_POP9 TFLD_SET FLD_DES9 *BMULT USER_ID NTO_READ FNALTERR PASSWORD PLSWAIT APPEND FNRLOCK ATALTER RMALTER cVARREADf nFLDf cDESCf CVARREAD CDESC LICKMVALID CFLD_DESC SHELL NNDBF KEYBOARD CHR(23) PLAIN cVARREADf nFLDf DO FLD_HELP WITH nFLD No records on file Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD LICKFLD CFILTER_ MDUMMY NLASTKEY NNDBF RREAD DESC SHELL POP_UP DIALOG NNEXTKEY CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NNCOL NSAY_COL NSAY_ROW EBDISPLAY SBLANK OFNFOUND MALTER FNALTER NBADD mBAR9 MOUSEFLD_DES9 USER_ID PASSWORD CFLD_DESC FLD_DES9 _DESC USER_ID PASSWORD Description: User ID : Password : NMOUSE NFLD_BEG NFLD_END Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP10 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->DESC)f Enter Description: M->DESCf mDUMMYf .AND.8 LOC_12$UPPER(DESC) .AND.8 LOC_12=RIGHT(RTRIM(UPPER(DESC)),LEN(LOC_12)) .AND.8 LOC_12=LEFT(LTRIM(UPPER(DESC)),LEN(LOC_12)) .AND.8 LOC_12=UPPER(DESC) Enter User ID: M->USER_IDf mDUMMYf .AND.8 LOC_13$UPPER(USER_ID) .AND.8 LOC_13=RIGHT(RTRIM(UPPER(USER_ID)),LEN(LOC_13)) .AND.8 LOC_13=LEFT(LTRIM(UPPER(USER_ID)),LEN(LOC_13)) .AND.8 LOC_13=UPPER(USER_ID) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY NCMSG CSEARCH MDUMMY MVALID ENCOL NDBF ONREC_PTR NDIALOG USEF2 _DES9 CLOCATE BLOCATE BLOCATE2 CDESC LOC_12 IUSER_ID TLOC_13 BEXACT PLSWAIT NORDER *CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->DESC)f CSEARCH USER_ID _CHANGE _DELETE BSAVED MALTER NFNALTER BEXTRA CPROGRAM ENDBF FNRLOCK OCDESC ALTER MVALID CFLD_DESC MDESC MALTER FNALTER NMVALID _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS DESC:W=.F. ,USER_ID:V=BRV(15) ,PASSWORD:V=BRV(16) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME NCREAD CREAD_ERR CTITLE ENDBF NFLD NFLD_BEG ONFLD_END MALTER NMDUMMY mNLEVEL KCBROWSE NBMULT FNGETENV NSCHEME WINDOW DIALOG TCTRL Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP11 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Enter User ID (leave blank for application-wide password Enter Application/User Password CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NNCOL NFLD_KEY ENSAY_COL NSAY_ROW DIALOG NMOUSE mRIGHTMOUSEBSAVED NNFLD_BEG FLD_SAY11 NFLD_END FLD_UQS FLD_SET TBMULT USER_ID NTO_READ FNALTERR *PASSWORD PLSWAIT APPEND FNRLOCK ALTER MALTER CVARREAD CVARREAD CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NNCOL NSAY_COL NSAY_ROW EBDISPLAY SBLANK OFNFOUND MALTER FNALTER NBADD mDESC MOUSECDESC NUSER_ID PASSWORD CFLD_DESC USER_ID PASSWORD Description: User ID : Password : NMOUSE NFLD_BEG NFLD_END *HT \!\?\<Ascending;\<Descending CFLD_DESC FILE_PATH CDRIV_SEP FILE_NAME NINDEX NFLD_DES15 NORDER Description: File Path : File Name : Index: Order: NMOUSE NFLD_BEG NFLD_END Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP15 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Enter Application Description Enter Application File Path Enter starting procedure name (no extension) Select Index Order *HT \!\?\<Ascending;\<Descending *HT \!\?\<Ascending;\<Descending CWINDOW BMEMO CFLD_DESC MDESC MVALID NNCOL NFLD_KEY ENSAY_COL NSAY_ROW DIALOG NMOUSE mRIGHTMOUSEBSAVED NNFLD_BEG OPT_TXT15 OPT_SAY15 NFLD_END IDESC TFLD_SET FILE_PATH CDRIV_SEP FILE_NAME NORDER CVARREAD KEYBOARD CHR(23) PLAIN cVARREADf nINDEX nFLDf DO FLD_HELP WITH nFLD BAR20f Description Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY NNDBF RREAD NINDEX BAR20 OPOP_UP DIALOG NEXTKEY *HT \!\?\<Ascending;\<Descending CWINDOW NWINDOW BMEMO CFONTS CFLD_DESC MDESC MVALID NNCOL NSAY_COL NSAY_ROW EBDISPLAY SBLANK ODESC FILE_PATH CDRIV_SEP FILE_NAME BAR20 OUSEFLD_DES15 NINDEX NORDER BSAVED FILE_PATH FILE_NAME NINDEX NORDER *HT \!\?\<Ascending;\<Descending CFLD_DESC FLD_DES19 _NAME USER_ID PASSWORD NNINDEX NORDER Description: User ID : Password : Index: Order: NMOUSE NFLD_BEG NFLD_END Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP19 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Enter Application Description Press [F2] for popup mVALIDf Enter User ID (leave blank for application-wide password Enter Application/User Password Select Index File mVALIDf Select Index Order *HT \!\?\<Ascending;\<Descending *HT \!\?\<Ascending;\<Descending CWINDOW BMEMO CFLD_DESC MDESC MVALID NNCOL NFLD_KEY ENSAY_COL NSAY_ROW DIALOG E_PATH V_SEP MOUSE RIGHTMOUSEBSAVED NFLD_BEG OPT_TXT19 OPT_SAY19 NFLD_END IDESC TFLD_SET FLD_DES19 FLD_POP19 USER_ID PASSWORD NINDEX NORDER cVARREADf M->DESC NINDEX nFLDf Description User ID cDESCf CVARREAD CDESC MVALID CFLD_DESC SHELL NNINDEX KEYBOARD CHR(23) PLAIN cVARREADf M->DESC nINDEX nFLDf DO FLD_HELP WITH nFLD No records on file Press [Enter] to Select DEACTIVATE POPUP POP_UP BAR25f Description User ID Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY NNDBF RREAD DESC SHELL POP_UP DIALOG NINDEX BAR25 OUSENEXTKEY *HT \!\?\<Ascending;\<Descending CWINDOW NWINDOW BMEMO CFONTS CFLD_DESC MDESC MVALID NNCOL NSAY_COL NSAY_ROW EBDISPLAY SBLANK OBAR22 FLD_DES19 USER_ID PASSWORD BAR25 NINDEX NORDER BSAVED USER_ID PASSWORD NINDEX NORDER NFLD_FND1 FLD_DES1 FLD_POP1 FLD_UNQ1 EN(mDUV ) FLD_BRO5 FLD_GET5 FLD_DES5 FLD_POP5 FLD_SAY5 FLD_SHW5 FLD_TXT5 FLD_FND6 FLD_DES6 FLD_POP6 FLD_UNQ6 FLD_FND7 FLD_DES7 FLD_POP7 FLD_UNQ7 LOC_1 C LOCqN FLD_BRO9 FLD_GET9 FLD_DES9 FLD_POP9 FLD_SAY9 FLD_SHW9 FLD_TXT9 FLD_FND10 FLD_DES10 FLD_POP10 FLD_UNQ10 BRW11 .AND. BRV11 FLD_BRO11 FLD_GET11 FLD_DES11 FLD_POP11 FLD_SAY11 FLD_SHW11 FLD_TXT11 FLD_SHW15 FLD_TXT15 OPT_GET15 FLD_DES15 FLD_POP15 OPT_SAY15 OPT_TXT15 FLD_SHW19 FLD_TXT19 OPT_GET19 FLD_DES19 FLD_POP19 OPT_SAY19 OPT_TXT19 D:\SHL\ SCR.FXP D:\SHL\SCR.PRG